home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 147 / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan).7z / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan) (Track 1).bin / docs / perl / montest.pl < prev    next >
Text File  |  2000-06-25  |  486b  |  35 lines
  1. # monitor test
  2. use Monitor ('monitor', 'unmonitor');
  3.  
  4. $x = 10;
  5. @a = (100, 200, 300);
  6. %h = (a => 1, b => 2, c => 3 );
  7.  
  8. monitor( \$x, 'x' );
  9. monitor( \@a, 'a' );
  10. monitor( \%h, 'h' );
  11.  
  12. $x = 20;
  13. $y1 = $x;
  14. print "y1 = $y1\n";
  15.  
  16. $a[2] = 3000;
  17. $y2 = $a[2];
  18. print "y2 = $y2\n";
  19.  
  20. $h{'c'} = 30;
  21. $y3 = $h{'c'};
  22. print "y3 = $y3\n";
  23.  
  24. unmonitor( \$x );
  25. unmonitor( \@a );
  26. unmonitor( \%h );
  27.  
  28. print "x = $x\n";
  29. print "a = @a\n";
  30. print "h = ", %h, "\n";
  31.  
  32.  
  33. # end of file
  34.  
  35.